Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/Moss/Vitra.dir/00014_UI Rollover Change Pointer .ls

Text File | 1999-03-01 | 931 b | 25 lines

property outcurs, incurs, incursSet, customImage, customMask, oldcursor, useCustom

on translate_cursor me, setting, image, mask, Custom
  if Custom then
    set val to [member image, member mask]
    return val
  end if
  return setting
end

on beginSprite me
  set oldcursor to the cursor of sprite the spriteNum of me
  set val to translate_cursor(me, the incursSet of me, customImage, customMask, useCustom)
  set the cursor of sprite the spriteNum of me to val
end

on endSprite me
  set the cursor of sprite the spriteNum of me to oldcursor
end

on getPropertyDescriptionList
  set p_list to [#incursSet: [#comment: "Pointer Image:", #format: #cursor, #default: 1], #useCustom: [#comment: "Use Custom Pointer:", #format: #boolean, #default: 0], #customImage: [#comment: "Custom Image:", #format: #bitmap, #default: member 1], #customMask: [#comment: "Custom Mask:", #format: #bitmap, #default: member 1]]
  return p_list
end